"C O P Y R I G H T 1 9 9 7 B Y M I K A E L L U N D\n\n"
"This installation utility will check everything needed to use ViewDIZ. "
"At all times you can use the help-buttons to recieve additional "
"information about the current installation part.\n\n"
"ViewDIZ is absolutely FREEWARE which means that you may use it "
"as much as you like - no restrictions, no money to be paid. If, however, "
"you use it a lot - please consider sending a letter/e-mail to the Author."
)
(if (< (/ (getversion) 65536) 37) (abort @app-name" only runs under Kickstart 2.04 or above!"))
(if (< (/ (getversion) 65536) 39) (message "\n"@app-name" should run under Kickstart 2.04 - It have only been tested on Kickstart 3.0, though.\n\nIf you encounter any problems please mail me."))
(if (not (exists "T:" (noreq))) (abort "\nYou MUST have a T: assign - Reinstall Workbench!"))
(if (not (exists "ENV:" (noreq))) (abort "\nYou MUST have an ENV: assign - Reinstall Workbench!"))
(if (not (exists "ENVARC:" (noreq))) (abort "\nYou MUST have an ENVARC: assign - Reinstall Workbench!"))
(if (not (exists "FONTS:" (noreq))) (abort "\nYou MUST have a FONTS: assign - Reinstall Workbench!"))
(if (not (exists "LIBS:" (noreq))) (abort "\nYou MUST have a LIBS: assign - Reinstall Workbench!"))
(if (not (exists "C:Version" (noreq))) (abort "\nYou MUST have C:Version - Reinstall Workbench!"))
(if (not (exists "Libs:Locale.library" (noreq))) (abort "\nYou MUST have the Locale.library - Reinstall Workbench !"))
(if (not (exists "Libs:Rexxsupport.library" (noreq))) (abort "\nYou MUST have the Rexxsupport.library - Reinstall Workbench or your Rexx-package!"))
(if (not (exists "Libs:Reqtools.library" (noreq))) (abort "\nYou MUST have the Reqtools.library - Get the recent version from Aminet:\n\nutil/libs/reqtoolusr.lha"))
(if (exists "libs/rexxdossupport.library")
(copylib
(source "libs/rexxdossupport.library")
(dest "libs:")
)
)
(if (exists "libs/rexxreqtools.library")
(copylib
(source "libs/rexxreqtools.library")
(dest "libs:")
)
)
;**********************************
;
; Is the Rexx server running ?
;
;**********************************
(working "\nChecking if you have got an ARexx server running\n(This might take some time)\n")
(execute "c/Rexx?")
(if (not (exists "ENV:vd.temp"))
(
(run "sys:system/rexxmast")
(message "\nHmmm, Your ARexx server doesn't seem to be active.\n\n"
"If you are sure you have one active, then just ignore this message and continue!\n"
)
)
(delete "ENV:vd.temp")
)
;**********************************
;
; Install the special ANSI font.
;
;**********************************
(if (not (exists "fonts:jetterm/"))
(copyfiles
(source "fonts/")
(dest "fonts:")
(pattern "#?")
)
)
;**********************************
;
; Copying ViewDIZ + commands
;
;**********************************
(set @default-dest "C:")
(copyfiles
(source "C/ViewDIZ")
(dest "C:")
)
(set #bin
(askoptions
(prompt "\nWhich external programs should be installed ?\n")
(help "To use ViewDIZ you will need some additional programs depending on which filetypes you wish to process.\n\n"
"· Copy2Clip is required for the CLIP-option.\n"
"· DMSdescript is required for DMS-processing.\n"
"· MagicDIZ is required for IFF/GIF/JPG-processing.\n"
"· xDIZ is required for XPK-processing.\n"
"· Textract is required for TXT/NFO-processing.\n"
"· ModuleDescript is for unpacked MOD/MED modules.\n\n"
"Not all required programs is included in this package - below is a list of other program you will need to process other filetypes:\n\n"
"· LHA,LZX,ZIP,UNZIP Is required for Lha, LZx and ZIP archives.\n"
"· DMS is required if you want to unpack a DMS-files to a disk.\n"
"· XFDdecrunch is required for unpacking packed datafiles.\n"
"· UnARJ_FID is required for extracting File_ID.DIZ from ARJ files.\n\n"
"The files will be copied to C: - You may move them to another destination as long as this is in the command path."
)
(choices "MagicDIZ 2.06"
"DMSdescript 1.1"
"Textract 1.0"
"Copy2Clip 1.0"
"xDiz 1.5"
"ModuleDescript 1.0"
)
(default %111111)
)
)
(if (IN #bin 0) (copylib (dest "c:") (source "c/MagicDIZ")))
(if (IN #bin 1) (copyfiles (dest "c:") (source "c/DMSdescript")))
(if (IN #bin 2) (copylib (dest "c:") (source "c/Textract")))
(if (IN #bin 3) (copylib (dest "c:") (source "c/Copy2Clip")))
(if (IN #bin 4) (copyfiles (dest "c:") (source "c/xDiz")))
(if (IN #bin 5) (copyfiles (dest "c:") (source "c/ModuleDescript")))
(prompt "\nWhich language would you like to use ?\n")
(help "ViewDIZ are localised which mean that you can use virtually any language.\n\nThis package includes material to localize ViewDIZ into your language if it's not listed - If you have got the spirit for it, you are welcome to do the translation - See documentation for details.\n\nNOTE: To use languages other than english, SYS:Prefs/Locale tool must be set with this language.")
(message "\nThe following section will configure ViewDIZ after your personal needs. From v1.8+ a brand new configuration system is used - if you have got an older version or none at all, you MUST run this section.\n\n"
"WARNING: Existing files will be overwritten!\n")
(set #header ".key f/a\n.bra {\n.ket }\n"
#f "\"{f}\""
)
(if (not (exists "ENV:ViewDIZ/"))
(makedir "ENV:ViewDIZ")
)
;**********************************
;
; Customize text editor
;
;**********************************
(set #precmd "")
(set #bin
(askchoice
(prompt "\nWhat is your favourite texteditor ?\n")
(help "ViewDIZ lets you chose which texteditor to be used when editing File_ID.DIZ descriptions. If you have installed the CygnusED Prog. package you should use 'CygnusED'. If you are in doubt which editor to use, then just select the Workbench Editor.\n\nNOTE: If you chose 'other' make sure that the texteditor doesn't detatch itself from CLI!")
(Message "\nYour C:Ed file seems a bit short! Are you sure it is the original Workbench Editor ?\n\nIf you are 110% then just forget this message and go ahead!\n")
)
)
)
(if (= #bin 1)
( (set #precmd "Stack 8000 >NIL:\n"
#cedbin
(askchoice
(help "As CygnusED will detatch itself from CLI it must be started with either the 'sticky' or 'keepio' option; which one depends on how you start CygnusED. CygnusED can be started by running the mainprogram or by using an activator which comes with the CygnusED program. The activator can sometimes behave a bit strange, so I recommend using the mainprogram.\n\nNOTE: A new updated activator can be found on Aminet - don't know if it's bugfree (?)")
(prompt "\nHow should CygnusED be started ?\n")
(choices "CED (Mainprogram)" "ED (Activator)")
)
)
(if (= #cedbin 0)
(set #findprompt "\nPlease find the 'CED' program:\n"
#options (cat #f " -keepio"))
(set #findprompt "Please find the 'ED' activator:"
#options (cat #f " -sticky -keepio"))
)
(set #edfile
(askfile
(Prompt #findprompt)
(help "The mainprogram is named 'CED' while the activator is named 'ED'")
(default "C:")
)
)
)
)
(if (= #bin 2)
(
(set #edfile
(askfile
(prompt "\nPlease select your favourite texteditor:\n")
(help "Here you may select your favourite texteditor. IMPORTANT: The editor must NOT detatch itself from CLI. To check start a CLI-window and start your editor from there. If a new CLI-prompt is returned the editor 'detatches' itself from CLI and cannot be used.")
(default "SYS:Utilities/")
)
)
(set #options
(askstring
(prompt "\nPlease select arguments for "#prg"\n(Use {f} to substitute file send by ViewDIZ.)\n")
(help "See manual for "#prg" to decide which arguments to use. {f} must ALWAYS be present as this substitutes the filename ViewDIZ will send to the editor. It is recommended to use double quotes around {f} to ensure filenames containing spaces.")
(prompt "\nWhat program do you want to use for reading text files ?\n")
(help "ViewDIZ offers a \"READ\" button when textfiles are processed - You must chose which reader to be used.\nNOTE: The 'Type' viewer uses c:type and is real cool if you have got KingCON installed.\n\n If you have got DirectoryOpus 5+ installed (and running) a 'doubleclick' on the file will be performed if you chose the Directory Opus option.")
(choices "Multiview" "Amigaguide" "More" "Type :^)" "Directory Opus 5+" "Other")
(prompt "\nPlease select arguments for "#prg"\n(Use {f} to substitute file send by ViewDIZ.)\n")
(help "See manual for "#prg" to decide which arguments to use. {f} must ALWAYS be present as this substitutes the filename ViewDIZ is processing. It is recommended to use double quotes around {f} to ensure filenames containing spaces.")
(prompt "\nWhat is your favourite Picture viewer ?\n")
(help "ViewDIZ offers a \"VIEW\" button when pictures are processed - You must chose which viewer to be used.\n\n If you have got DirectoryOpus 5+ installed (and running) a 'doubleclick' on the file will be performed if you chose the Directory Opus option.")
(cat "\""(askfile (prompt "\nPlease chose Picture viewer:\n") (help "Select file with full path.") (default "SYS:Utilities/"))"\"")
#args
(askstring
(prompt "\nPlease select arguments for "#prg"\n(Use {f} to substitute file send by ViewDIZ.)\n")
(help "See manual for "#prg" to decide which arguments to use. {f} must ALWAYS be present as this substitutes the filename ViewDIZ is processing. It is recommended to use double quotes around {f} to ensure filenames containing spaces.")
(prompt "\nWhat is your favourite music player ?\n")
(help "ViewDIZ offers a \"PLAY\" button when musicfiles are processed - You must chose which player to be used. ViewDIZ recognices a lot of soundformats so you should select a multiplayer.\n\n If you have got DirectoryOpus 5+ installed (and running) a 'doubleclick' on the file will be performed if you chose the Directory Opus option.")
(choices "Delitracker" "Eagleplayer" "Hippoplayer" "Directory Opus 5+" "Other")
(help "Select the directory where the player is installed. Etc. \"Work:Music/Delitracker_ii/\"")
(prompt #musprompt)
(default "Work:")
)
)
(set #precmd (cat "cd \""#prgpath"\"\n")
#prg (cat "\""(tackon #prgpath #prg)"\"")
)
)
)
(if (= #bin 5)
(
(set #prg
(cat "\""(askfile (prompt "\nPlease chose a musicplayer:\n") (help "Select the file with full path.") (default "Work:"))"\"")
#args
(askstring
(prompt "\nPlease select arguments for "#prg"\n(Use {f} to substitute file send by ViewDIZ.)\n")
(help "See manual for "#prg" to decide which arguments to use. {f} must ALWAYS be present as this substitutes the filename ViewDIZ is processing. It is recommended to use double quotes around {f} to ensure filenames containing spaces.")
(prompt "\nWhich drives should be presented when unpacking DMS/xFX-files ?\n")
(help "ViewDIZ offers an \"EXTRACT\" button when processing DMS or xFX files. If you press this button you are asked which drive you want to write to - These drives are chosen here. Each drive you select will appear as a button in ViewDIZ.\n\nNOTE: It is important that you use colon : after the device name, etc. df0:")
(Prompt "\nViewDIZ can be made resident - This results in a faster appearance. Do you want to use this feature on bootup ?\n")
(help "This will add a line to the file s:user-startup, so that ViewDIZ will be pre-loaded into memory at startup. This results in a faster appearance of ViewDIZ but it will cost you approx. 18k of memory.")
(exit "\n\nEverything should be settled now! To get a quick view of the usage and functions of ViewDIZ start ViewDIZ from CLI with no arguments. For a more detailed explanation see the documentation - And just one more thing: You may run this script again if you wanna change your settings.\n\n"
